home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / tonyray1.arc / EC3.PRG < prev    next >
Encoding:
Text File  |  1985-09-01  |  597 b   |  37 lines
  1. CLEA
  2. mname=space(20)
  3. doname=.t.
  4. SELE CLOSED
  5. SET INDE TO CLOSNAME,CLOSNMBR
  6. DO WHIL DONAME
  7. CLEA
  8. @01,00 say '                         EDIT FILES'
  9. @05,03 SAY 'enter client name ' get mname PICT '!!!!!!!!!!!!!!!!!!!!'
  10. @06,03 say 'or (cr) to exit'
  11. READ
  12. CLEA gets
  13. mname=trim(mname)
  14. IF len(mname)=0
  15. doname=.f.
  16. EXIT
  17. ENDI
  18. FIND &mname
  19. IF EOF()
  20. @15,23 SAY CHR(7)+'no client with that name - try again'
  21. xx=1
  22. DO WHIL XX<35
  23. xx=xx+1
  24. ENDD
  25. mname=space(20)
  26. LOOP
  27. ENDI
  28. SET FORM TO E2
  29. READ
  30. SET FORM TO
  31. mname=space(20)
  32. ENDD
  33. SELE CURRENT
  34. SET INDE TO CURRNAME,CURRNMBR
  35. curr='013'
  36. RETU
  37.